-- background: 3551 from stack: in
-- bmap block id: 45922
-- flags: 4000
-- background id: 0
-- name: B2
----- HyperTalk script -----

on idle
  get the number of cards - 1
  put it into line 1 of field cardfield
end idle
on opencard
  hide background field "Hidden info"
end opencard



-- part 1 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=3 top=306 right=341 bottom=44
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=468 top=306 right=341 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 26425 / 26425
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  go next
end mouseUp



-- part 3 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=140 top=45 right=68 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 216
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Entry


-- part 4 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=140 top=70 right=325 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 216
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Definition


-- part 7 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=3 top=23 right=75 bottom=46
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseUp
  domenu"Find..."
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=3 top=80 right=130 bottom=46
-- title width / last selected line: 0
-- icon id / first selected line: 17481 / 17481
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New
----- HyperTalk script -----
on mouseUp
  domenu"New Card"
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=3 top=135 right=186 bottom=46
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  sort by background field entry

end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=468 top=268 right=303 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 902 / 902
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  go prev
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=468 top=230 right=265 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 21449 / 21449
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  go to card id 2832
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=3 top=250 right=299 bottom=72
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print Card
----- HyperTalk script -----
on mouseUp
  answer"Do you want to print this card ?" with "No" or "Yes"
  if it is "No" then exit mouseup
  domenu"Print Card"
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=52 top=22 right=42 bottom=177
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Search Entry
----- HyperTalk script -----
on mouseUp
  global string
  ask"Enter string to search for in Entry field:"with string
  if it is empty then exit mouseup
  put it into string
  go next
  find it in field "Entry"
  if it is not in field "Entry" then
    beep 1
    go prev
    answer"Sorry, couldn't find your selection."
  end if
end mouseup


-- part 16 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=461 top=24 right=42 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 216
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: cardfield


-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=460 top=24 right=56 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  beep 1
  answer"That field can not be edited."
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=3 top=191 right=242 bottom=46
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scan
----- HyperTalk script -----
on mouseUp
  show message at 22,313
  put "Click the mouse to stop the scan..."
  show all cards
  hide message box
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=56 top=92 right=139 bottom=137
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hidden Info...
----- HyperTalk script -----
on mouseUp
  get the visible of field "Hidden info"
  if the visible of field "Hidden Info" is false then
    if field "hidden Info" is empty then
      put "No Entry"into line 3 of field "Hidden info"
    end if
  end if
  set the visible of field "hidden info" to not the visible of field "hidden info"
end mouseUp



-- part 20 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=62 top=145 right=330 bottom=311
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 216
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hidden Info